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ASCO - NUMERICAL SORT IN ASCENDING ORDER 


DECUS Program Library Write-up DECUS No. 8-284 


Summary 

This program sorts the data into ascending numerical order. 

Tapes Required 

Form of program tape - The program is written in the PDP-8 FORTRAN-D language and is in 
the source language. 

Form of data tape - The first number on the data tape is the number of data to be sorted, followed 
by the data themselves. If there is more than one block of data, succeeding blocks will also be 
preceded by the number of data in that block. 

Operating Instructions 

• FORT Source program in high speed reader 

*OUT-S:ASCO 

* 

*IN-R: 

* ^ 

* Data tape in high speed reader 
*READY 

The program will then pause and request entry of the number of blocks. This should be entered on 
the keyboard and terminated by "Return. " If an output tape is required, switch on the low-speed 
punch before typing "Return." 

If the program has already been compiled on to the disk, it may be called into store as follows: 

. FOSL 

*IN-S: ASCO 

* 

*OPT- 

Data tape in high speed reader 

*READY 


The operation of the program then follows as usual. 
Output 


The program prints the data in ascending order and punches an output tape if required. 
















Storage 


Not more than 250 data may be in a single block. The number of blocks is unlimited. 


L 

C SYKES NUMERICAL SORT IN ASCENDING ORDER ASCO 
DIMENSION T(25,0) 

100 FORMAT(I) 

101 FORMAT (/, E) 

104 FORMAT(/, "ENTER NO. OF BLOCKS ON KEYBOARD",/) 
TYPE104 
ACCEPT100, N 
DOl NO=l, N 
READ2,100, K 
D02l=l, K 
READ2,101 ,T(I) 

2 CONTINUE 

L=K-1 

4 1=0 

7 IF(T(l+2)-T(l+l) )6,6,5 

6 Z=T(I+1) 

T(l+l)=T(l+2) 

T(I+2)=Z 

5 1=1+1 

I F(l—L)7,8,7 

8 L=L-1 
IF(L)4,9,4 

9 DO10I=1, K 
WRITE1, 101, T(l) 

10 CONTINUE 

102 FORM AT(/,/,/) 

TYPE102 

1 CONTINUE 

END 

* 
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